home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / keyb / keykill.zip / KEYKILL.BAS < prev    next >
BASIC Source File  |  1989-12-13  |  1KB  |  22 lines

  1. 1 CLS : INPUT "Enter decimal scan code of key you want disabled";SCAN1
  2. 2 INPUT "Enter second scan code of key you want disabled";SCAN2
  3. 3 INPUT "Enter third scan code of key you want disabled";SCAN3
  4. 4 OPEN "keykill.com" FOR OUTPUT AS 1
  5. 5 FOR I = 1 TO 110 : READ BYTE
  6. 6 IF I = 13 THEN IF SCAN1 > 0 AND SCAN1 < 128 THEN BYTE = SCAN1
  7. 7 IF I = 17 THEN IF SCAN2 > 0 AND SCAN2 < 128 THEN BYTE = SCAN2
  8. 8 IF I = 21 THEN IF SCAN3 > 0 AND SCAN3 < 128 THEN BYTE = SCAN3
  9. 9 PRINT#1, CHR$(BYTE); : NEXT I : CLOSE 1
  10. 10 PRINT "KEYKILL.COM created.  Type SYSTEM to quit Basic"
  11. 11 DATA 235, 47,144,  0,  0,  0,  0,251, 80,228
  12. 12 DATA  96, 60,255,116, 15, 60,255,116, 11, 60
  13. 13 DATA 255,116,  7, 88,250, 46,255, 46,  3,  1
  14. 14 DATA 250,228, 97, 12,128,230, 97, 36,127,235
  15. 15 DATA   0,230, 97,176, 32,230, 32, 88,207,184
  16. 16 DATA   9, 53,205, 33,137, 30,  3,  1,140,192
  17. 17 DATA 163,  5,  1,186,  7,  1,184,  9, 37,205
  18. 18 DATA  33,180,  9,186, 86,  1,205, 33,186, 20
  19. 19 DATA   0,184,  0, 49,205, 33, 13, 10, 75, 69
  20. 20 DATA  89, 75, 73, 76, 76, 76, 32,105,110,115
  21. 21 DATA 116, 97,108,108,101,100, 46, 13, 10, 36
  22.